| Filename | (eval 1114)[/usr/share/perl/5.10/CGI.pm:869] |
| Statements | Executed 20 statements in 100µs |
| Eval Invoked At | /usr/share/perl/5.10/CGI.pm line 869 |
| Sibling evals | 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23 |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 2 | 2 | 2 | 117µs | 344µs | CGI::query_string |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | # spent 344µs (117+227) within CGI::query_string which was called 2 times, avg 172µs/call:
# once (62µs+118µs) by CGI::url at line 832 of CGI.pm
# once (55µs+109µs) by CGI::url at line 12 of (eval 1109)[CGI.pm:869] | ||||
| 2 | 2 | 9µs | 2 | 13µs | my($self) = self_or_default(@_); # spent 13µs making 2 calls to CGI::self_or_default, avg 7µs/call |
| 3 | 2 | 2µs | my($param,$value,@pairs); | ||
| 4 | 2 | 13µs | 2 | 64µs | for $param ($self->param) { # spent 64µs making 2 calls to CGI::param, avg 32µs/call |
| 5 | 2 | 11µs | 2 | 58µs | my($eparam) = escape($param); # spent 58µs making 2 calls to CGI::Util::escape, avg 29µs/call |
| 6 | 2 | 13µs | 2 | 57µs | for $value ($self->param($param)) { # spent 57µs making 2 calls to CGI::param, avg 28µs/call |
| 7 | 2 | 8µs | 2 | 35µs | $value = escape($value); # spent 35µs making 2 calls to CGI::Util::escape, avg 18µs/call |
| 8 | 2 | 1µs | next unless defined $value; | ||
| 9 | 2 | 9µs | push(@pairs,"$eparam=$value"); | ||
| 10 | } | ||||
| 11 | } | ||||
| 12 | 2 | 11µs | for (keys %{$self->{'.fieldnames'}}) { | ||
| 13 | push(@pairs,".cgifields=".escape("$_")); | ||||
| 14 | } | ||||
| 15 | 2 | 22µs | return join($USE_PARAM_SEMICOLONS ? ';' : '&',@pairs); | ||
| 16 | } | ||||
| 17 | |||||
| 18 | ; |